home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 40 / 040.d81 / ohms law (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  9.1 KB  |  404 lines
  1. 50 rem ----by d. moore oct. 1984----
  2. 60 nu=1:ln=10
  3. 70 print"[147]"
  4. 80 gosub 62000
  5. 100 :
  6. 130 print"[147][158]";chr$(142);
  7. 140 print"ohms law"
  8. 150 print
  9. 160 print"[158]                  e"
  10. 170 print"[159]               [175][175][175][175][175][175][175]
  11. 180 [153]"open                  (NULL)
  12. 190 print"[158]                i[159] [221][158] r"
  13. 200 print"[159]                  [221]
  14. 210 [153]"           1cont) voltage"
  15. 215 [153]"           2cont) current"
  16. 220 [153]"           3cont) resistance"
  17. 225 [153]"           4cont) power"
  18. 230 [153]"           5cont) resonant circuits"
  19. 235 [153]"           qcont) quit"
  20. 240 [153]"      press 1cont, 2cont, 3cont, 4cont, 5cont, or qcont."
  21. 270 a[178][194](203):[151]198,.
  22. 280 [139]a[178]56[167] 340
  23. 290 [139]a[178]59[167] 470
  24. 300 [139]a[178]8[167] 600
  25. 310 [139]a[178]11[167] 730
  26. 320 [139]a[178]16[167] 2280
  27. 321 [139]a[178]62[167] [141]63500:[137]100
  28. 330 [137]270
  29. 340 [153]:[153]"load"
  30. 350 [153]"sys voltage formula"
  31. 360 [153]"e = i (NULL) r"
  32. 370 [153]"sysandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandand"
  33. 380 [141]62510
  34. 390 [153]
  35. 400 [141]62520
  36. 410 [153]
  37. 420 [153][163]8);i[172]r;" - is the voltage"
  38. 430 [153]:[153]"sysandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandand"
  39. 440 [153]:[153]"conthit space for menu"
  40. 450 [139][194](203)[179][177]60[167]450
  41. 460 [137] 100
  42. 470 [153]"load"
  43. 480 [153]"sys current formula"
  44. 490 [153]"i = e / r"
  45. 500 [153]"sysandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandand"
  46. 510 [141]62500
  47. 520 [153]
  48. 530 [141]62520
  49. 540 [153]
  50. 550 [153][163]8);e[173]r;" - amps"
  51. 560 [153]"sysandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandand"
  52. 570 [153]:[153]"conthit space for menu"
  53. 580 [139][194](203)[179][177]60[167]580
  54. 590 [137] 100
  55. 600 [153]"load"
  56. 610 [153]"sys resistance formula"
  57. 620 [153]"r = e / i"
  58. 630 [153]"sysandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandand"
  59. 640 [141]62500
  60. 650 [153]
  61. 660 [141]62510
  62. 670 [153]
  63. 680 [153][163]8);e[173]i;" - ohms"
  64. 690 [153]"sysandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandand"
  65. 700 [153]:[153]"conthit space for menu"
  66. 710 [139][194](203)[179][177]60[167]710
  67. 720 [137] 100
  68. 730 [153]"load";
  69. 740 [153]"sys power formulas
  70. 750 print"[158][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  71. 760 print
  72. 770 print"  1 - w=e [214] i         6 - i=w / e"
  73. 780 print
  74. 790 print"                              [206][163][163][163][163][163][163]
  75. 800 [153]"  2 - w=i(NULL)i (NULL) r       7 - i=(NULL)(NULL) w / r "
  76. 810 [153]
  77. 820 [153]"  3 - w=e(NULL)e / r"
  78. 830 [153]:[153]
  79. 840 [153]"          (NULL)tab(tab(tab(tab(tab(tab(
  80. 850 print"  4 - e=[205][206] w [214] r      8 -   r=w / i[214]i"
  81. 860 print
  82. 870 print"  5 - e=w / i         9 -   r=e[214]e / w"
  83. 880 print
  84. 885 print"             m - quit to menu
  85. 887 [153]
  86. 890 [153]"sysandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandand"
  87. 900 [153]"sys(enter choice)
  88. 920 a=peek(203):poke198,.
  89. 930 ifa=56then1040
  90. 940 ifa=59then1200
  91. 950 ifa=8then1320
  92. 960 ifa=11then1440
  93. 970 ifa=16then1580
  94. 980 ifa=19then1720
  95. 990 ifa=24then1860
  96. 1000 ifa=27then2000
  97. 1010 ifa=32then2140
  98. 1011 ifa=36then100
  99. 1020 goto 920
  100. 1030 print"[158][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  101. 1040 print:print"[147]"
  102. 1050 print
  103. 1060 print"[158] power formula
  104. 1070 [153]:[153]"              w = e (NULL) istop"
  105. 1080 [153]"sysandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandand"
  106. 1090 [141]62500
  107. 1100 [153]
  108. 1110 [141]62510
  109. 1120 [153]
  110. 1130 [153][163]8);e[172]i;" - watts"
  111. 1140 [153]"sysandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandand"
  112. 1150 [153]"cont enter p for power - or m for menu "
  113. 1160 a[178][194](203):[151]198,.
  114. 1170 [139]a[178]41[167] 730
  115. 1180 [139]a[178]36[167] 100
  116. 1190 [137] 1160
  117. 1200 [153]:[153]"load"
  118. 1210 [153]
  119. 1220 [153]"sys power formula
  120. 1230 print:print"              w = i[214]i [214] r[144]"
  121. 1240 print"[158][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  122. 1250 gosub62510
  123. 1260 print
  124. 1270 gosub62520
  125. 1280 print
  126. 1290 printtab(8);i*i*r;" - watts"
  127. 1300 print"[158][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  128. 1310 goto 1150
  129. 1320 print:print"[147]"
  130. 1330 print
  131. 1340 print"[158] power formula
  132. 1350 [153]:[153]"              w = e(NULL)e / rstop"
  133. 1360 [153]"sysandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandand"
  134. 1370 [141]62500
  135. 1380 [153]
  136. 1390 [141]62520
  137. 1400 [153]
  138. 1410 [153][163]8);e[172]e[173]r;" - watts"
  139. 1420 [153]"sysandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandand"
  140. 1430 [137] 1150
  141. 1440 [153]:[153]"load"
  142. 1450 [153]
  143. 1460 [153]"sys power formula
  144. 1470 print
  145. 1480 print"                 [206][163][163][163][163][163][163]
  146. 1490 [153]"             e=(NULL)(NULL) w (NULL) r
  147. 1500 print"[158][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  148. 1510 gosub62540
  149. 1520 print
  150. 1530 gosub62520
  151. 1540 print
  152. 1550 printtab(8);sqr(w*r);" - volts "
  153. 1560 print"[158][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  154. 1570 goto 1150
  155. 1580 print:print"[147]"
  156. 1590 print
  157. 1600 print"[158] power formula
  158. 1610 [153]
  159. 1620 [153]
  160. 1630 [153]"             e = w / i   "
  161. 1640 [153]"sysandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandand"
  162. 1650 [141]62540
  163. 1660 [153]
  164. 1670 [141]62510
  165. 1680 [153]
  166. 1690 [153][163]8);w[173]i;" - volts "
  167. 1700 [153]"sysandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandand"
  168. 1710 [137] 1150
  169. 1720 [153]:[153]"load"
  170. 1730 [153]
  171. 1740 [153]"sys power formula
  172. 1750 print
  173. 1760 print
  174. 1770 print"             i = w / e   "
  175. 1780 print"[158][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  176. 1790 gosub62540
  177. 1800 print
  178. 1810 gosub62500
  179. 1820 print
  180. 1830 printtab(8);w/e;" - amps"
  181. 1840 print"[158][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  182. 1850 goto 1150
  183. 1860 print:print"[147]"
  184. 1870 print
  185. 1880 print"[158] power formula
  186. 1890 [153]
  187. 1900 [153]"                 (NULL)tab(tab(tab(tab(tab(tab(
  188. 1910 print"             i=[205][206] w / r
  189. 1920 [153]"sysandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandand"
  190. 1930 [141]62540
  191. 1940 [153]
  192. 1950 [141]62520
  193. 1960 [153]
  194. 1970 [153][163]8);[186](w[173]r);" - amps"
  195. 1980 [153]"sysandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandand"
  196. 1990 [137] 1150
  197. 2000 [153]:[153]"load"
  198. 2010 [153]
  199. 2020 [153]"sys power formula
  200. 2030 print
  201. 2040 print
  202. 2050 print"             r = w / i[214]i "
  203. 2060 print"[158][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  204. 2070 gosub62540
  205. 2080 print
  206. 2090 gosub62510
  207. 2100 print
  208. 2110 printtab(10);w/(i*i);" - ohms"
  209. 2120 print"[158][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  210. 2130 goto 1150
  211. 2140 print:print"[147]"
  212. 2150 print
  213. 2160 print"[158] power formula
  214. 2170 [153]
  215. 2180 [153]
  216. 2190 [153]"             r = e(NULL)e / w "
  217. 2200 [153]"sysandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandand"
  218. 2210 [141]62500
  219. 2220 [153]
  220. 2230 [141]62540
  221. 2240 [153]
  222. 2250 [153][163]10);e[172]e[173]w;" - ohms"
  223. 2260 [153]"sysandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandand"
  224. 2270 [137] 1150
  225. 2280 [153]"load"
  226. 2290 [153]"sys resonant circuits"
  227. 2300 [153]"      contenter 1 - 4cont; m contfor main menu"
  228. 2310 [153]"sysandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandand"
  229. 2320 [153]"                       1
  230. 2330 print"      1 -    [205][206]  [192] [192][192][192][192][192][192][192][192][192]
  231. 2340 [153]"             (NULL)(NULL)c val  2 (NULL) f c
  232. 2350 print
  233. 2360 print"      2 -    [205][206]  [192]
  234. 2370 [153]"       (NULL)(NULL)l val  2 (NULL) f l
  235. 2380 print
  236. 2390 print"                      1
  237. 2400 [153]"      3 -    (NULL)usr tan andandandandandandandandand
  238. 2410 print"             [207]  [197]     [175][175][175][175][175]
  239. 2420 [153]"                  2(NULL)(NULL)(NULL) l c
  240. 2430 print:print
  241. 2440 print"                  300,000,000"
  242. 2450 print"      4 -    [205]  [192] [196][196][196][196][196][196][196][196][196][196][196]"
  243. 2460 print"             [206][205] [183]  frequency
  244. 2470 a[178][194](203):[151]198,.
  245. 2475 [139]a[178]36[167]130
  246. 2480 [139]a[178]56[167] 2530
  247. 2490 [139]a[178]59[167] 2790
  248. 2500 [139]a[178]8[167] 2940
  249. 2510 [139]a[178]11[167] 3140
  250. 2520 [137] 2470
  251. 2530 [153]:[153]"load"
  252. 2540 [153]
  253. 2550 [153]"sys capacitive reactance"
  254. 2560 [153]"sysandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandand"
  255. 2570 [153]
  256. 2580 [153]"              (NULL)(NULL)     1 "
  257. 2590 [153]"              (NULL)(NULL)c= tantantantantantan"
  258. 2600 [153]"                   2(NULL) f c"
  259. 2610 [153]
  260. 2620 [153]"sysandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandand"
  261. 2630 [153]
  262. 2640 [141]62550
  263. 2650 [153]
  264. 2660 [141]62560
  265. 2670 [153]
  266. 2680 [153]""1[173](6.28[172]f[172]c);"ohms"
  267. 2690 [153]
  268. 2700 [153]"sysandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandand"
  269. 2710 [153]
  270. 2720 [153]
  271. 2730 [153]"cont enter p=power x=react m=menu  "
  272. 2740 a[178][194](203):[151]198,.
  273. 2750 [139]a[178]41[167] 730
  274. 2760 [139]a[178]36[167] 100
  275. 2770 [139]a[178]23[167] 2280
  276. 2780 [137]2740
  277. 2790 [153]:[153]"load"
  278. 2800 [153]
  279. 2810 [153]"sys inductive reactance"
  280. 2820 [153]"sysandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandand"
  281. 2830 [153]
  282. 2840 [153]"              (NULL)(NULL)       "
  283. 2850 [153]"              (NULL)(NULL)l= 2(NULL) f l"
  284. 2860 [153]
  285. 2870 [153]"sysandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandand"
  286. 2880 [153]
  287. 2890 [141]62550
  288. 2900 [153]
  289. 2910 [141]62570
  290. 2920 [153]
  291. 2930 [153]""6.28[172]f[172]l    ;"ohms"
  292. 2932 [153]
  293. 2935 [137]2730
  294. 2940 [153]:[153]"load"
  295. 2950 [153]
  296. 2960 [153]"sys resonant frequency"
  297. 2970 [153]"sysandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandand"
  298. 2990 [153]"                      1
  299. 3000 print"             [207][183] [192] [175][175][175][175][175][175][175][175][175]
  300. 3010 [153]"             (NULL)  val     andandandandand
  301. 3020 print"                  2[255][205][206] l c
  302. 3030 [153]
  303. 3040 [153]"sysandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandand"
  304. 3050 [153]
  305. 3060 [141]62560
  306. 3070 [153]
  307. 3080 [141]62570
  308. 3090 [153]
  309. 3100 [153]""1[173](6.28[172][186](l[172]c))[173]1e6;"freq. in mhz
  310. 3110 print
  311. 3120 print"[158][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  312. 3130 goto 2720
  313. 3140 print:print"[147]"
  314. 3150 print
  315. 3160 print"[158]wavelength formula"
  316. 3170 print"[158][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  317. 3180 print"                  300,000,000"
  318. 3190 print"             [205]  [192] [196][196][196][196][196][196][196][196][196][196][196]"
  319. 3200 print"             [206][205] [183]  frequency
  320. 3210 [153]
  321. 3220 [141]62550
  322. 3230 [153]
  323. 3240 [153]""3e8[173]f;"meters"
  324. 3250 [153]:[153]
  325. 3260 [153]"sysandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandand"
  326. 3300 [153]:[153]
  327. 3350 [137] 2720
  328. 61000 b$[178]"":[153]"to";:[129]a[178]1[164]100
  329. 61005 [161]a$:[139]a$[178]""[167]61005
  330. 61010 [139]a$[178][199](20) [175]a[177]1 [167] a[178]a[171]1:b$[178][200](b$,a[171]1):[153]"cmdcmd  cmdcmdto";:[137]61005
  331. 61015 [139]a$[178][199](20) [167] 61005
  332. 61017 [139]a$[178]"."[167]61050
  333. 61020 [139]a$[178][199](13)[167][153]"cmd ":a$[178]b$:[142]
  334. 61030 [139]a$[179]" "[176]a$[177]"(NULL)"[167] 61005
  335. 61035 [139]a$[177]"z"[167] 61005
  336. 61040 [139]a[177]100 [176]a[177]ln [167] 61005
  337. 61045 [139]  nu[178]1 [175] a$[179]"0"[176]nu[178]1[175] a$[177]"9"[167]61005
  338. 61050 b$[178]b$[170]a$:[153]"cmd"a$;:[153]"to";:[130]
  339. 61999 :
  340. 62000 [151]53280,0:[151]53281,0
  341. 62009 [153]"load"
  342. 62019 [153]"          cont                   "
  343. 62029 [153]"          cont  (NULL) (NULL) atnclosestr$ (NULL) (NULL) atn (NULL)  "
  344. 62039 [153]"          cont                   "
  345. 62049 [153]                              
  346. 62059 [153]
  347. 62069 [153]"            (NULL)roudly (NULL)resents"
  348. 62079 [153]
  349. 62089 [153]
  350. 62099 [153]"          open{$7b}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$7b}"
  351. 62109 [153]"          (NULL)                  (NULL)"
  352. 62119 [153]"          (NULL)  (NULL) forleft$ sys(NULL) (NULL)  (NULL) atn for(NULL)  open(NULL)"
  353. 62129 [153]"          (NULL)                  (NULL)"
  354. 62139 [153]"          (NULL) peeky str$ale (NULL). (NULL)oore open(NULL)"
  355. 62149 [153]"          (NULL)                  (NULL)"
  356. 62159 [153]"          (NULL)tantantantantantantantantantantantantantantantantantan(NULL)"
  357. 62169 [153]
  358. 62179 [153]
  359. 62189 [153]"      print#                              "
  360. 62199 [153]"        len (NULL) (NULL) (NULL) (NULL) right$ chr$ left$ (NULL)  1 9 8 7  "
  361. 62209 [153]"                                    "
  362. 62219 [153]
  363. 62229 [153]
  364. 62239 [153]"        (NULL) (NULL) val (NULL) (NULL)  ( (NULL) (NULL) atn len val )"
  365. 62249 [153]"";
  366. 62250 [139][194](203)[178]64[167]62250
  367. 62255 [142]
  368. 62500 [153]" e= voltage : enter the voltage :";:nu[178]1:[141]61000
  369. 62505 e[178][197](a$):[139]a$[178]""[167][153]"on";:[137]62500
  370. 62507 [142]
  371. 62510 [153]" i = current : enter the current :";:nu[178]1:[141]61000
  372. 62515 i[178][197](a$):[139]a$[178]""[167][153]"on";:[137]62510
  373. 62517 [142]
  374. 62520 [153]" r = resistance : enter the resistance   :";:nu[178]1:[141]61000
  375. 62525 r[178][197](a$):[139]a$[178]""[167][153]"onon";:[137]62520
  376. 62527 [142]
  377. 62530 [153]" p = power : enter the power :";:nu[178]1:[141]61000
  378. 62535 p[178][197](a$):[139]a$[178]""[167][153]"on";:[137]62530
  379. 62537 [142]
  380. 62540 [153]" w = watts : enter the watts :";:nu[178]1:[141]61000
  381. 62545 w[178][197](a$):[139]a$[178]""[167][153]"on";:[137]62540
  382. 62547 [142]
  383. 62550 [153]" f = freq : enter the freq :";:nu[178]1:[141]61000
  384. 62555 f[178][197](a$):[139]a$[178]""[167][153]"on";:[137]62550
  385. 62557 [142]
  386. 62560 [153]" c = capacitance : enter the capacitance  :";:nu[178]1:[141]61000
  387. 62565 c[178][197](a$):[139]a$[178]""[167][153]"onon";:[137]62560
  388. 62567 [142]
  389. 62570 [153]" l = inductance : enter the inductance   :";:nu[178]1:[141]61000
  390. 62575 l[178][197](a$):[139]a$[178]""[167][153]"onon";:[137]62570
  391. 62577 [142]
  392. 63500 [153]"sys"
  393. 63510 [153]"                       "
  394. 63512 [153]"  quit : are you sure? "
  395. 63513 [153]"         y)es or n)o   "
  396. 63514 [153]"                       "
  397. 63515 a[178][194](203):[151]198,.
  398. 63517 [139]a[178]25[167] 63550
  399. 63520 [139]a[178]39[167] [142]
  400. 63525 [137] 63515
  401. 63550 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  402. 63555 [139]er[179][177]63 [167] [153]"load":[128]
  403. 63556 [147]"hello connect",8
  404.